Site Menu.
My Desktop.
:0.
Main Blog Page.
Site map.
Linux Information.
Image Browser.
Misc Doom Files.
Doom Wadfiles.
Yadex Editing Page.
CGI Code.
Perl Code.
Linux Configs.
My Linux System.
Console Cheats.
Misc Cheats.
PSX Doom Page.
Zdoom ACS.
The Shit List.
windows 3.0 Page.
Fun Flash game.
Racing game.
Blog Archives.
Blog Archives.
Misc Text Files.
maps/dmfaq66a.txt
maps/dmfaq66b.txt
maps/dmfaq66c.txt
maps/dmfaq66d.txt
maps/doom1-08.txt
maps/Q2m1.txt
maps/Q2m2.txt
maps/Qm1.txt
maps/Qm2.txt
maps/blood.txt
maps/boomdeh.txt
maps/boomref.txt
Misc American Images.
September 11.
My .cshrc file. ~/.cshrc.
My .bashrc file. ~/.bashrc.
My .zshrc file. ~/.zshrc.
My Blackbox style file.
chernobyl.
Downloads.
These files are uuencoded because the tripod.com setup does not allow you to
download files like *.bz2 and *.zip files. Since these are GNU/Linux files, I
am encoding the files this way so they can be easily downloaded and uudecoded
simply. It is best to create a new folder to save the files into so when you
uudecode them you can easily find the files that are created.
My sysinfo program.
sys.txt. Download this into a new directory & type uudecode
sys.txt to undecode. This will give you sys.tar.bz2, then type
tar -jxvf sys.tar.bz2.
Or here:http://one.
fsphost.com/goten/sysinfo.kdevelop-1.0.tar.bz2.
Target
Puzzle Solver. Solves the smh.com.au Sydney
Morning Herald Target puzzle. Download this and type uudecode
target.txt. This gives you target.c. Program written by Rod Johnson
, November 6, 1995. I have hacked on this program to make it better and
easier to use for a CGI script.
Configuration files.
My fvwm config file. This gives a Windows/Fvwm95 look with some very nice
Window Decorations and a good color scheme. But without the ugly Windows
wallpaper. That really does not look good.
~/.fvwm/.fvwm2rc.
Also needs this optional perl script in your $PATH.
~/bin/fvwm-desktop.
My .emacs file. ~/.emacs.
|
Useful Perl And CGI Code.
Here is a program I wrote to set a random wallpaper for a GNU/Linux
desktop. Just type wmsetbg -s ~/Wallpapers/photohm/$(img) to set a
random wallpaper. Compile with gcc -Wall -Os photos.c -o img. Very nice
indeed.
/********************************************************************
* Description: Random image program.
* Author: bejiitas <>
* Created at: Tue Apr 17 02:08:47 EDT 2007
* Computer: opensuse
* System: Linux 2.6.20.2-Lorien on i686
*
* Copyright (c) 2007 bejiitas_wrath All rights reserved.
*
********************************************************************/
/*
* This is how I generated this list in the first place...
* for file in *.jpg; do echo -ne "\"$file\"," >> ~/out.txt; done;
*/
#include
#include
#include
const char* files[] = {
"j0144216.jpg", "j0144217.jpg", "j0144226.jpg", "j0144227.jpg",
"j0144228.jpg", "j0144232.jpg", "j0144233.jpg", "j0144234.jpg",
"j0144235.jpg", "j0144236.jpg", "j0144237.jpg", "j0144243.jpg",
"j0144247.jpg", "j0144248.jpg", "j0144269.jpg", "j0144281.jpg",
"j0144282.jpg", "j0144287.jpg", "j0144288.jpg", "j0144291.jpg",
"j0144294.jpg", "j0144295.jpg", "j0144296.jpg", "j0144297.jpg",
"j0144300.jpg", "j0144301.jpg", "j0144302.jpg", "j0144304.jpg",
"j0144305.jpg", "j0144306.jpg", "j0144308.jpg", "j0144309.jpg",
"j0144310.jpg", "j0144311.jpg", "j0144312.jpg", "j0144314.jpg",
"j0144318.jpg", "j0144324.jpg", "j0144325.jpg", "j0144326.jpg",
"j0144329.jpg", "j0144333.jpg", "j0144337.jpg", "j0144338.jpg",
"j0144340.jpg", "j0144343.jpg", "j0144344.jpg", "j0144345.jpg",
"j0144346.jpg", "j0144347.jpg", "j0144348.jpg", "j0144349.jpg",
"j0144351.jpg", "j0144352.jpg", "j0144353.jpg", "j0144354.jpg",
"j0144355.jpg", "j0144356.jpg", "j0144357.jpg", "j0144358.jpg",
"j0144359.jpg", "j0144360.jpg", "j0144361.jpg", "j0144362.jpg",
"j0144365.jpg", "j0144367.jpg", "j0144370.jpg", "j0144371.jpg",
"j0144372.jpg", "j0144373.jpg", "j0144374.jpg", "j0144377.jpg",
"j0144378.jpg", "j0144379.jpg", "j0144380.jpg", "j0144381.jpg",
"j0144382.jpg", "j0144383.jpg", "j0144384.jpg", "j0144385.jpg",
"j0144386.jpg", "j0144387.jpg", "j0144389.jpg", "j0144390.jpg",
"j0144391.jpg", "j0144392.jpg", "j0144393.jpg", "j0144394.jpg",
"j0144395.jpg", "j0144396.jpg", "j0144397.jpg", "j0144398.jpg",
"j0144399.jpg", "j0144400.jpg", "j0144401.jpg", "j0144402.jpg",
"j0144403.jpg", "j0144406.jpg", "j0144411.jpg", "j0144412.jpg",
"j0144414.jpg", "j0144415.jpg", "j0144416.jpg", "j0144418.jpg",
"j0144420.jpg", "j0144422.jpg", "j0144423.jpg", "j0144425.jpg",
"j0144430.jpg", "j0144433.jpg", "j0144434.jpg", "j0144435.jpg",
"j0144436.jpg", "j0144437.jpg", "j0144438.jpg", "j0144440.jpg",
"j0144442.jpg", "j0144443.jpg", "j0144445.jpg", "j0144453.jpg",
"j0144454.jpg", "j0144455.jpg", "j0144456.jpg", "j0144459.jpg",
"j0144460.jpg", "j0144463.jpg", "j0144464.jpg", "j0144465.jpg",
"j0144466.jpg", "j0144467.jpg", "j0144474.jpg", "j0144475.jpg",
"j0144477.jpg", "j0144480.jpg", "j0144482.jpg", "j0144483.jpg",
"j0144484.jpg", "j0144485.jpg", "j0144487.jpg", "j0144488.jpg",
"j0144489.jpg", "j0144490.jpg", "j0144491.jpg", "j0144494.jpg",
"j0144495.jpg", "j0144498.jpg", "j0144503.jpg", "j0144504.jpg",
"j0144505.jpg", "j0144506.jpg", "j0144508.jpg", "j0144512.jpg",
"j0144518.jpg", "j0144519.jpg", "j0144522.jpg", "j0144523.jpg",
"j0144526.jpg", "j0144527.jpg", "j0144532.jpg", "j0144533.jpg",
"j0144534.jpg", "j0144535.jpg", "j0144536.jpg", "j0144538.jpg",
"j0144539.jpg", "j0144540.jpg", "j0144541.jpg", "j0144542.jpg",
"j0144543.jpg", "j0144544.jpg", "j0144545.jpg", "j0144546.jpg",
"j0144547.jpg", "j0144548.jpg", "j0144550.jpg", "j0144551.jpg",
"j0144552.jpg", "j0144555.jpg", "j0144557.jpg", "j0144558.jpg",
"j0144559.jpg", "j0144561.jpg", "j0144562.jpg", "j0144570.jpg",
"j0144579.jpg", "j0144580.jpg", "j0144582.jpg", "j0144585.jpg",
"j0144589.jpg", "j0144592.jpg", "j0144601.jpg", "j0144602.jpg",
"j0144604.jpg", "j0144605.jpg", "j0144611.jpg", "j0144612.jpg",
"j0144613.jpg", "j0144615.jpg", "j0144616.jpg", "j0144617.jpg",
"j0144621.jpg", "j0144623.jpg", "j0144630.jpg", "j0144631.jpg",
"j0144635.jpg", "j0144637.jpg", "j0144638.jpg", "j0144639.jpg",
"j0144640.jpg", "j0144643.jpg", "j0144653.jpg", "j0144654.jpg",
"j0144656.jpg", "j0144659.jpg", "j0144660.jpg", "j0144664.jpg",
"j0144665.jpg", "j0144667.jpg", "j0144674.jpg", "j0144677.jpg",
"j0144683.jpg", "j0144685.jpg", "j0144687.jpg", "j0144689.jpg",
"j0144691.jpg", "j0144692.jpg", "j0144694.jpg", "j0144695.jpg",
"j0144707.jpg", "j0144708.jpg", "j0144711.jpg", "j0144714.jpg",
"j0144716.jpg", "j0144718.jpg", "j0144719.jpg", "j0144720.jpg",
"j0144723.jpg", "j0144725.jpg", "j0144726.jpg", "j0144728.jpg",
"j0144729.jpg", "j0144731.jpg", "j0144736.jpg", "j0144737.jpg",
"j0144739.jpg", "j0144741.jpg", "j0144742.jpg", "j0144743.jpg",
"j0144744.jpg", "j0144745.jpg", "j0144746.jpg", "j0144747.jpg",
"j0144748.jpg", "j0144750.jpg", "j0144751.jpg", "j0144752.jpg",
"j0144755.jpg", "j0144756.jpg", "j0144758.jpg", "j0144760.jpg",
"j0144761.jpg", "j0144764.jpg", "j0144765.jpg", "j0144766.jpg",
"j0144768.jpg", "j0144770.jpg", "j0144773.jpg", "j0144788.jpg",
"j0144789.jpg", "j0144790.jpg", "j0144791.jpg", "j0144804.jpg",
"j0144806.jpg", "j0144807.jpg", "j0144809.jpg", "j0144810.jpg",
"j0144817.jpg", "j0144820.jpg", "j0144821.jpg", "j0144825.jpg",
"j0144826.jpg", "j0144829.jpg", "j0144830.jpg", "j0144831.jpg",
"j0144843.jpg", "j0144846.jpg", "j0144847.jpg", "j0144850.jpg",
"j0144851.jpg", "j0144852.jpg", "j0144853.jpg", "j0144854.jpg",
"j0144857.jpg", "j0144864.jpg", "j0144865.jpg", "j0144870.jpg",
"j0144873.jpg", "j0144874.jpg", "j0144876.jpg", "j0144877.jpg",
"j0144878.jpg", "j0144879.jpg", "j0144884.jpg", "j0144890.jpg",
"j0144891.jpg", "j0144892.jpg", "j0144893.jpg", "j0144894.jpg",
"j0144895.jpg", "j0144896.jpg", "j0144897.jpg", "j0144898.jpg",
"j0144899.jpg", "j0144901.jpg", "j0144902.jpg", "j0144904.jpg",
"j0144905.jpg", "j0144906.jpg", "j0144911.jpg", "j0144912.jpg",
"j0144913.jpg", "j0144914.jpg", "j0144915.jpg", "j0144916.jpg",
"j0144917.jpg", "j0144918.jpg", "j0144919.jpg", "j0144920.jpg",
"j0144921.jpg", "j0144956.jpg", "j0144958.jpg", "j0144960.jpg",
"j0144961.jpg", "j0144963.jpg", "j0144966.jpg", "j0144968.jpg",
"j0144969.jpg", "j0144970.jpg", "j0144971.jpg", "j0144972.jpg",
"j0144973.jpg", "j0144974.jpg", "j0144975.jpg", "j0144976.jpg",
"j0144978.jpg", "j0144979.jpg", "j0144980.jpg", "j0144981.jpg",
"j0144982.jpg", "j0144983.jpg", "j0144984.jpg", "j0145003.jpg",
"j0145010.jpg", "j0145016.jpg", "j0145020.jpg", "j0145025.jpg",
"j0145032.jpg", "j0145033.jpg", "j0145034.jpg", "j0145035.jpg",
"j0145037.jpg", "j0145042.jpg", "j0145043.jpg", "j0145044.jpg",
"j0145045.jpg", "j0145046.jpg", "j0145047.jpg", "j0145048.jpg",
"j0145049.jpg", "j0145050.jpg", "j0145051.jpg", "j0145053.jpg",
"j0145054.jpg", "j0145055.jpg", "j0145057.jpg", "j0145058.jpg",
"j0145060.jpg", "j0145062.jpg", "j0145063.jpg", "j0145067.jpg",
"j0145068.jpg", "j0145069.jpg", "j0145070.jpg", "j0145071.jpg",
"j0145078.jpg", "j0145083.jpg", "j0145085.jpg", "j0145087.jpg",
"j0145088.jpg", "j0145091.jpg", "j0145092.jpg", "j0145093.jpg",
"j0145104.jpg", "j0145105.jpg", "j0145106.jpg", "j0145107.jpg",
"j0145108.jpg", "j0145109.jpg", "j0145110.jpg", "j0145111.jpg",
"j0145113.jpg", "j0145114.jpg", "j0145115.jpg", "j0145116.jpg",
"j0145118.jpg", "j0145120.jpg", "j0145121.jpg", "j0145123.jpg",
"j0145124.jpg", "j0145126.jpg", "j0145127.jpg", "j0145129.jpg",
"j0145130.jpg", "j0145131.jpg", "j0145132.jpg", "j0145150.jpg",
"j0145151.jpg", "j0145152.jpg", "j0145153.jpg", "j0145162.jpg",
"j0145164.jpg", "j0145174.jpg", "j0145175.jpg", "j0145176.jpg",
"j0145181.jpg", "j0145186.jpg", "j0145187.jpg", "j0145188.jpg",
"j0145190.jpg", "j0145191.jpg", "j0145196.jpg", "j0145198.jpg",
"j0145199.jpg", "j0145203.jpg", "j0145204.jpg", "j0145205.jpg",
"j0145209.jpg", "j0145213.jpg", "j0145216.jpg", "j0145217.jpg",
"j0145219.jpg", "j0145220.jpg", "j0145221.jpg", "j0145222.jpg",
"j0145223.jpg", "j0145225.jpg", "j0145227.jpg", "j0145229.jpg",
"j0145231.jpg", "j0145233.jpg", "j0145239.jpg", "j0145255.jpg",
"j0145256.jpg", "j0145257.jpg", "j0145258.jpg", "j0145259.jpg",
"j0145260.jpg", "j0145261.jpg", "j0145262.jpg", "j0145263.jpg",
"j0145264.jpg", "j0145265.jpg", "j0145267.jpg", "j0145269.jpg",
"j0145270.jpg", "j0145275.jpg", "j0145281.jpg", "j0145282.jpg",
"j0145284.jpg", "j0145287.jpg", "j0145296.jpg", "j0145298.jpg",
"j0145300.jpg", "j0145301.jpg", "j0145302.jpg", "j0145315.jpg",
"j0145316.jpg", "j0145317.jpg", "j0145321.jpg", "j0145323.jpg",
"j0145324.jpg", "j0145325.jpg", "j0145327.jpg", "j0145331.jpg",
"j0145332.jpg", "j0145333.jpg", "j0145334.jpg", "j0145335.jpg",
"j0145336.jpg", "j0145337.jpg", "j0145338.jpg", "j0145342.jpg",
"j0145344.jpg", "j0145345.jpg", "j0145347.jpg", "j0145349.jpg",
"j0145350.jpg", "j0145351.jpg", "j0145352.jpg", "j0145353.jpg",
"j0145354.jpg", "j0145355.jpg", "j0145356.jpg", "j0145358.jpg",
"j0145359.jpg", "j0145360.jpg", "j0145361.jpg", "j0145363.jpg",
"j0145365.jpg", "j0145368.jpg", "j0145370.jpg", "j0145372.jpg",
"j0145373.jpg", "j0145375.jpg", "j0145376.jpg", "j0145377.jpg",
"j0145378.jpg", "j0145379.jpg", "j0145380.jpg", "j0145382.jpg",
"j0145383.jpg", "j0145385.jpg", "j0145387.jpg", "j0145389.jpg",
"j0145393.jpg", "j0145394.jpg", "j0145395.jpg", "j0145397.jpg",
"j0145398.jpg", "j0145399.jpg", "j0145401.jpg", "j0145402.jpg",
"j0145411.jpg", "j0145412.jpg", "j0145415.jpg", "j0145417.jpg",
"j0145420.jpg", "j0145421.jpg", "j0145422.jpg", "j0145426.jpg",
"j0145427.jpg", "j0145428.jpg", "j0145429.jpg", "j0145430.jpg",
"j0145431.jpg", "j0145432.jpg", "j0145434.jpg", "j0145436.jpg",
"j0145438.jpg", "j0145439.jpg", "j0145440.jpg", "j0145441.jpg",
"j0145442.jpg", "j0145443.jpg", "j0145444.jpg", "j0145446.jpg",
"j0145447.jpg", "j0145448.jpg", "j0145449.jpg", "j0145450.jpg",
"j0145451.jpg", "j0145452.jpg", "j0145453.jpg", "j0145454.jpg",
"j0145455.jpg", "j0145456.jpg", "j0145457.jpg", "j0145458.jpg",
"j0145459.jpg", "j0145460.jpg", "j0145462.jpg", "j0145464.jpg",
"j0145465.jpg", "j0145466.jpg", "j0145467.jpg", "j0145468.jpg",
"j0145469.jpg", "j0145470.jpg", "j0145471.jpg", "j0145472.jpg",
"j0145473.jpg", "j0145474.jpg", "j0145475.jpg", "j0145476.jpg",
"j0145477.jpg", "j0145478.jpg", "j0145479.jpg", "j0145480.jpg",
"j0145481.jpg", "j0145482.jpg", "j0145483.jpg", "j0145484.jpg",
"j0145485.jpg", "j0145486.jpg", "j0145487.jpg", "j0145488.jpg",
"j0145489.jpg", "j0145490.jpg", "j0145491.jpg", "j0145492.jpg",
"j0145493.jpg", "j0145494.jpg", "j0145495.jpg", "j0145496.jpg",
"j0145497.jpg", "j0145498.jpg", "j0145499.jpg", "j0145500.jpg",
"j0145501.jpg", "j0145502.jpg", "j0145504.jpg", "j0145505.jpg",
"j0145506.jpg", "j0145508.jpg", "j0145509.jpg", "j0145510.jpg",
"j0145511.jpg", "j0145512.jpg", "j0145513.jpg", "j0145514.jpg",
"j0145515.jpg", "j0145517.jpg", "j0145518.jpg", "j0145519.jpg",
"j0145521.jpg", "j0145522.jpg", "j0145523.jpg", "j0145524.jpg",
"j0145525.jpg", "j0145526.jpg", "j0145527.jpg", "j0145528.jpg",
"j0145529.jpg", "j0145531.jpg", "j0145532.jpg", "j0145533.jpg",
"j0145534.jpg", "j0145535.jpg", "j0145536.jpg", "j0145537.jpg",
"j0145538.jpg", "j0145539.jpg", "j0145540.jpg", "j0145541.jpg",
"j0145542.jpg", "j0145544.jpg", "j0145546.jpg", "j0145547.jpg",
"j0145551.jpg", "j0145552.jpg", "j0145553.jpg", "j0145554.jpg",
"j0145555.jpg", "j0145556.jpg", "j0145557.jpg", "j0145558.jpg",
"j0145559.jpg", "j0145560.jpg", "j0145561.jpg", "j0145562.jpg",
"j0145563.jpg", "j0145564.jpg", "j0145565.jpg", "j0145566.jpg",
"j0145567.jpg", "j0145568.jpg", "j0145571.jpg", "j0145572.jpg",
"j0145573.jpg", "j0145574.jpg", "j0145575.jpg", "j0145576.jpg",
"j0145577.jpg", "j0145578.jpg", "j0145579.jpg", "j0145581.jpg",
"j0145582.jpg", "j0145583.jpg", "j0145584.jpg", "j0145585.jpg",
"j0145586.jpg", "j0145587.jpg", "j0145588.jpg", "j0145589.jpg",
"j0145592.jpg", "j0145594.jpg", "j0145595.jpg", "j0145596.jpg",
"j0145597.jpg", "j0145598.jpg", "j0145599.jpg", "j0145600.jpg",
"j0145601.jpg", "j0145602.jpg", "j0145603.jpg", "j0145604.jpg",
"j0145605.jpg", "j0145606.jpg", "j0145607.jpg", "j0145608.jpg",
"j0145609.jpg", "j0145610.jpg", "j0145612.jpg", "j0145613.jpg",
"j0145614.jpg", "j0145615.jpg", "j0145616.jpg", "j0145617.jpg",
"j0145618.jpg", "j0145619.jpg", "j0145620.jpg", "j0145621.jpg",
"j0145622.jpg", "j0145623.jpg", "j0145624.jpg", "j0145625.jpg",
"j0145626.jpg", "j0145627.jpg", "j0145628.jpg", "j0145630.jpg",
"j0145631.jpg", "j0145632.jpg", "j0145633.jpg", "j0145634.jpg",
"j0145635.jpg", "j0145637.jpg", "j0145638.jpg", "j0145639.jpg",
"j0145640.jpg", "j0145641.jpg", "j0145643.jpg", "j0145645.jpg",
"j0145646.jpg", "j0145647.jpg", "j0145648.jpg", "j0145649.jpg",
"j0145650.jpg", "j0145651.jpg", "j0145652.jpg", "j0145653.jpg",
"j0145654.jpg", "j0145655.jpg", "j0145656.jpg", "j0145657.jpg",
"j0145658.jpg", "j0145660.jpg", "j0145661.jpg", "j0145662.jpg",
"j0145663.jpg", "j0145666.jpg", "j0145667.jpg", "j0145668.jpg",
"j0145669.jpg", "j0145707.jpg", "j0145713.jpg", "j0145717.jpg",
"j0145719.jpg", "j0145737.jpg", "j0145740.jpg", "j0145741.jpg",
"j0145743.jpg", "j0145748.jpg", "j0145751.jpg", "j0145752.jpg",
"j0145754.jpg", "j0145766.jpg", "j0145768.jpg", "j0145773.jpg",
"j0145774.jpg", "j0145775.jpg", "j0145778.jpg", "j0145780.jpg",
"j0145784.jpg", "j0145785.jpg", "j0145786.jpg", "j0145787.jpg",
"j0145792.jpg", "j0145794.jpg", "j0145796.jpg", "j0145797.jpg",
"j0145798.jpg", "j0145799.jpg", "j0145801.jpg", "j0145802.jpg",
"j0145803.jpg", "j0145804.jpg", "j0145806.jpg", "j0145807.jpg",
"j0145808.jpg", "j0145810.jpg", "j0145811.jpg", "j0145812.jpg",
"j0145813.jpg", "j0145814.jpg", "j0145815.jpg", "j0145817.jpg",
"j0145818.jpg", "j0145819.jpg", "j0145821.jpg", "j0145822.jpg",
"j0145823.jpg", "j0145824.jpg", "j0145825.jpg", "j0145826.jpg",
"j0145828.jpg", "j0145831.jpg", "j0145832.jpg", "j0145833.jpg",
"j0145834.jpg", "j0145837.jpg", "j0145838.jpg", "j0145839.jpg",
"j0145841.jpg", "j0145842.jpg", "j0145843.jpg", "j0145845.jpg",
"j0145846.jpg", "j0145847.jpg", "j0145848.jpg", "j0145849.jpg",
"j0145851.jpg", "j0145852.jpg", "j0145853.jpg", "j0145854.jpg",
"j0145855.jpg", "j0145857.jpg", "j0145858.jpg", "j0145861.jpg",
"j0145862.jpg", "j0145863.jpg", "j0145865.jpg", "j0145866.jpg",
"j0145867.jpg", "j0145868.jpg", "j0145869.jpg", "j0145870.jpg",
"j0145872.jpg", "j0145873.jpg", "j0145874.jpg", "j0145875.jpg",
"j0145876.jpg", "j0145877.jpg", "j0145878.jpg", "j0145879.jpg",
"j0145880.jpg", "j0145881.jpg", "j0145882.jpg", "j0145885.jpg",
"j0145886.jpg", "j0145889.jpg", "j0145891.jpg", "j0145893.jpg",
"j0145895.jpg", "j0145896.jpg", "j0145897.jpg", "j0145898.jpg",
"j0145899.jpg", "j0145900.jpg", "j0145901.jpg", "j0145902.jpg",
"j0145903.jpg", "j0145904.jpg", "j0145930.jpg", "j0145931.jpg",
"j0145940.jpg", "j0148788.jpg", "j0148810.jpg", "j0148835.jpg",
"j0148837.jpg", "j0148849.jpg", "j0148899.jpg", "j0148918.jpg",
"j0148920.jpg", "j0148939.jpg", "j0148947.jpg", "j0148953.jpg",
"j0148954.jpg", "j0149187.jpg", "j0149201.jpg", "j0149216.jpg",
"j0149245.jpg", "j0149259.jpg", "j0149261.jpg", "j0149270.jpg",
"j0149277.jpg", "j0149280.jpg", "j0149283.jpg"
};
const size_t urls = sizeof (files) / sizeof (*files) - 1;
int RandLink()
{
int Num;
srand ((unsigned)time(NULL));
Num = rand() % urls;
return Num;
}
int main() {
printf("%s", files[RandLink()]);
return 0;
}
Here I am putting up a code sample to print out a stylesheet in your Perl CGI
scripts. Very easy to use. I love this type of thing when I find it. I tried to
have the script load in the stylesheet from the file styles/style.css but it
does not seem to work. So I found this way of doing it by reading the CGI man
page. Now I have it.
$Style=<start_html(-title=>'Bejiitas Wrath`s Guestbook.',
-meta=>{'keywords'=>'Blog Doom2 Linux Quake Doom3',
'copyright'=>'Copyright 2007 John Cartwright.',
'definition'=>'My Blog Script.',
'Appeal'=>'Wide',
'description'=>'CGI Guestbook script.'},
-style=>{-src=>'styles/style.css',
-code=>$Style},
-LINK=>'#FFFF99');
A C program to load a random fortune. Put it in ~/bin and run it in your
~/.profile or ~/.bashrc
/*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
********************************************************************
* Description: Program to run fortune(1)
* Author: Homer Simpson <>
* Created at: Sat Nov 11 16:23:21 EST 2006
* Computer: linux-sfrk
* System: Linux 2.6.17.13-smp-PREEMPT on i686
*
* Copyright (c) 2006 Homer Simpson All rights reserved.
*
********************************************************************/
#include
#include
#include
#include
#include
const char* x[] = {
"limerick", "fortunes2", "linuxcookie",
"freebsd-tips", "osfortune", "startrek",
"zippy", "debian-hints"
};
const size_t FORTUNES = sizeof(x)/sizeof(*x) - 1;
int cool(int Size) {
int k;
k = 0;
srand((unsigned)time(NULL));
k = rand() % Size;
return k;
}
int main()
{
execlp("/usr/bin/fortune", x[cool(FORTUNES)], "-l", NULL, NULL);
return 0;
}
Random Number program.
#include
#include
#include
int cool(void) {
int i;
int k;
i = 32;
k = 0;
srand((unsigned)time(NULL));
k = rand() % i;
return k;
}
int main() {
printf("%i", cool());
return 0;
}
Reading in a text file.
#include
#include
#define log "tables.htm"
int main()
{
FILE *f;
char Kyo[40];
int Fsize;
f = fopen(log, "r");
Fsize = sizeof(f);
if(!f) {
printf("Sorry, I cannot open: %s.\n", log);
exit(1);
} else {
while (feof(f) != 1 && Fsize < 32768) {
fgets(Kyo, Fsize, f);
printf("%s", Kyo);
}
printf("\n\x78*----* Done. *----*\x78\n");
}
fclose(f);
return 0;
}
Counting the length of a text string.
#include
#include
#define MSG "Hello Doctor, let's get back to the TARDIS!"
int main() {
int g;
g = strlen(MSG);
if (g < 1) {
printf("The string is not very long!\n");
} else {
printf("The length of the string `MSG' is: %i characters.\n", g);
}
return 0;
}
This is a backup program which will backup the contents of a directory and
output it to a tgz file.
#!/usr/bin/perl -W
use strict;
use POSIX ("strftime");
# A script to backup some files.
my $homedir = "$ENV{'HOME'}";
my $user = $ENV{'LOGNAME'};
my $date = strftime("%A-%d-%B-%Y-%H-%M-%S", localtime);
print "Which directory do you want to backup?\n";
chomp(my $dir = );
if(!$dir) {
print "No Directory selected!\n";
exit;
} else {
my $target="$homedir\/$dir";
my $file = "$homedir\/$user-$date.tgz";
system("tar -cvf $file $target");
print "\n\nSuccessful backup of directory: $dir.\n";
exit;
}
This is another program, in standard C this time. It just prints out the
current time & date.
#include
#include
#define format "The time and date is: %A %d %B %Y. The time is: %T, %Z."
int main() {
struct tm *ptr;
time_t tm;
char str[60];
tm = time(NULL);
ptr = localtime(&tm); // Getting the seconds since Epoch.
strftime(str, 100, format, ptr); // And feeding it into strftime.
/*
Formatting the strftime string.
*/
printf("%s\n", str);
}
This is another way you can use the strftime formatting in your
scripts. Revised: Friday, April 08 2005.
#!/usr/bin/perl
use POSIX qw/strftime/;
$date = strftime "%T - %A %d %B %Y", localtime;
print "$date\n";
This code sample will print out an image to the browser. This could
be very useful if you point a web form to the script and this allows
you to have a CGI displayer of your images.
#!/usr/bin/perl
$file = "hello.jpg";
print "Content-Type: multipart/x-mixed-replace;boundary=myboundary\n\n";
print "--myboundary\n";
print "Content-Type: image/jpeg\n\n";
open(GOATSE,"$file" || die "I cannot open the image $file -\n- $!");
print ;
close(GOATSE);
print "\n--myboundary\n";
exit;
This code sample below prints out the time and date using
/bin/date. Updated! as of 17/12/2004. Note, this sample uses strftime(3)
formatting. You just re-arrange the %A %b %G Elements to change the date-time
format. type man strftime to get more information.
#!/usr/bin/perl
use strict;
use warnings;
my $date_command = "/bin/date"; # Using the date command.
my $date = `$date_command +"%H:%M:%S %A-%B-%d-%G -- (%Z)"`; chop($date);
print "$date\n";
And this is some sample code from the latest version of my Viewblog CGI. To
print the date and time.
my @Days = ('Sunday','Monday','Tuesday',
'Wednesday','Thursday','Friday',
'Saturday');
my @Mon1 = ('January','February','March',
'April','May','June',
'July','August','September',
'October','November','December');
my ($Sec,$Min,$Hour,$MDay,$Mon,$Year,$WkDay) = (localtime)[0,1,2,3,4,5,6];
$Year += 1900;
if($Sec < 10) {
$Sec = "0$Sec"
};
if($Min < 10) {
$Min = "0$Min"
};
if($Hour < 10) {
$Hour = "0$Hour"
};
$date = "$Hour:$Min:$Sec - $Days[$WkDay] $MDay $Mon1[$Mon] $Year";
|